--
-- constants and values used by application
--

package App_Configuration is

   --
   -- affect variety of generic instances
   --

   HEAP_LIMIT  : constant := 11_000_000;     -- 11 meg

   STACK_LIMIT : constant := 4_109_999;    -- 3.9 meg

   BUFFER_LIMIT : constant := 1;

   FILE_NAME_LEN_LIMIT : constant := 200;

   MAX_ERROR_OUTPUT : constant := 250;

   MAX_DEBUG_OUTPUT : constant := MAX_ERROR_OUTPUT;


   --
   -- define std err / error-reporting method
   --

   subtype Error_Output_Type is String

      with Dynamic_Predicate => Error_Output_Type'Size < MAX_ERROR_OUTPUT;


   procedure Error_Message( Message : Error_Output_Type );


   --
   -- define std out debug, informational output method
   --

   subtype Debug_Output_Type is String

      with Dynamic_Predicate => Debug_Output_Type'Size < MAX_DEBUG_OUTPUT;


   procedure Info_Message( Message : Debug_Output_Type );


end App_Configuration;